home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / trivia.arc / TOPICS.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1985-11-23  |  879 b   |  32 lines
  1. 10  LET L$=CHR$(186)+SPACE$(18)+CHR$(186)
  2. 20  COLOR 5:WIDTH 80:CLS
  3. 30  LOCATE 3,1,0
  4. 40  PRINT TAB(31);CHR$(201);STRING$(18,205);CHR$(187)
  5. 50  COLOR 1:PRINT TAB(31);L$
  6. 60  COLOR 2:PRINT TAB(31);L$
  7. 70  COLOR 3:PRINT TAB(31);L$
  8. 80  COLOR 4:PRINT TAB(31);L$
  9. 90  COLOR 6:PRINT TAB(31);L$
  10. 100  COLOR 7:PRINT TAB(31);L$
  11. 110  COLOR 8:PRINT TAB(31);L$
  12. 120  COLOR 9:PRINT TAB(31);L$
  13. 130  COLOR 10:PRINT TAB(31);L$
  14. 140  COLOR 2:PRINT TAB(31);CHR$(200);STRING$(18,205);CHR$(188)
  15. 150  LOCATE 5,35:COLOR 2:PRINT "TOPICS MENU"
  16. 160  COLOR 3:LOCATE 7,35:PRINT "[C]apitals"
  17. 170  LOCATE 8,35:PRINT "[G]eneral"
  18. 180  LOCATE 9,35:PRINT "[M]usic"
  19. 190  LOCATE 11,35:COLOR 6:PRINT "Your choice":LOCATE 11,46:INPUT C$
  20. 200  IF C$="C" THEN 260
  21. 210  IF C$="G" THEN 280
  22. 220  IF C$="M" THEN 300
  23. 230  IF C$="c" THEN 260
  24. 240  IF C$="g" THEN 280
  25. 250  IF C$="m" THEN 300 ELSE 150
  26. 260     'CAPITAL TOPICS CHOSEN - LOAD FILENAME CAPS
  27. 270  CLS:PRINT "Loading CAPITALS.  One moment...":LOAD"CAPS",R
  28. 280     'GENERAL TOPICS CHOSEN - LOAD FILENAME GEN
  29. 290  CLS:PRINT "Loading GENERAL.  One moment...":LOAD"GEN",R
  30. 300     'MUSIC TOPICS CHOSEN - LOAD FILENAME MUS
  31. 310  CLS:PRINT "Loading MUSIC.  One moment...":LOAD"MUS",R
  32.